CBARTEMP
pend .f.,;
		height 10,;
		width 60,;
		text "Outstanding Amounts"
define fieldlist ar
define field first_ref of ar;
	property enabled .f.,;
	datalink "drstrans->first_ref",;
	heading "Reference"
*define field second_ref of ar;
	property enabled .f.,;
	datalink "drstrans->second_ref",;
	heading "Second Ref"
define field date of ar ;
	property enabled .f.,;
	datalink "drstrans->date",;
	heading "Date"
define field amount of ar ;
SUB_CODE
FIRST_REF
ACTCD_REF
cb_amount of ar ;
	property ;
	heading "Receipt",;
	datalink "drstrans->cb_amount",;
	picture "999,999,999.99"
cbar.fieldlist = ar
lvoid = cbar.readmodal()
return
enabled .f.,;
	datalink "drstrans->second_ref",;
	heading "Second Ref"
define field date of ar ;
	property enabled .f.,;
	datalink "drstrans->date",;
	heading "Date"
define field amount of ar ;9UJ5 8)AWR0"):>ROBVXUQTN1S),HI(.4ZQ+P1X,#I
MJC-!N3R"O OL^0L.79DJI+'P?OK]JQA59.\*3+(D(:7B6FN8@;/3"TWHNHA+
M=,$[; ,J%$JT.<622XX!_'J9QCCO#(I*5G/EIH?E*"ZP@'>/GR\<#U[4+LL#
M84X4^QP4G<9,4H;K:;: (=2Y3(0&XV*6,(RB?R2X3@DV_"U)SO50O]N2$ ?[
M39N7BJ>N;^1KW(#MHGS=HU1WT7:4;3\P_AN]F% C5*BQ;O2-SL)P.4=H/FR?
MHCLP'Z^P@V2Q=1-PYSE@\+Z\H#Q2+&L"LN$UG_=/"0-_>/1_ZR>LU>@PUHZP
M]4097<3?<N<O@\6%V::W9]'&W-N,'[/-<(?)!%8%4PQ"\B;+H$[^'1C.ZZ6(
M#4U6TH[7@-KZ(BMD3@]3J8%/CU.H4FL#$=0/S:.K1 C$D1 '= 5,"DWQ(NC?
M2;6-(:/=&<1)!J$UP,>FY8'#EQ&F7J0GNY;]TB3#^3^;\7?E+<3R"+^I8PLI
M2[;(9?=+BKL2!EYS'Z1,RBREX0RSU9+=0.9A>-&0@[0EEKN!6&87+OGA4#V+
M+J6KM"%>FX7]Z8)3^SYN\8GXSK->JTZ&''"FA!?C\K]I0KI +6I+X]$H!!J6
MFPT;K8;FA4#8FR1A;UIFK\MCB9O$:8KE#+FX@#RDS+PC )ME"KT&8!UTI@&=
M1( <1Q&'<>B9<-8=;(,>8D'F@1UJ3QP&-FC$.X2=P;/35,TJMTK\)J,QYH!$
M,_G 1O>*4]B-NGELE:G9X1QL=CB_<8OAVKF3\E>:4NTT.\'LH/VEP?VE;^R?
MX$^'8IYVL/Z68,\ -302A>R: YJS22=41I<<%4!!'JNC-<DP]33^U'D-&%'2
M6:"^*7D*>PCG !3:>L2[J@]99S?T'ZYHXK_<^YCJ.63:/.:B+J+B V?_3E 1
M!'0GSKM4SQE*T2Z3HH/(KL+.=0H':-<9N+
SUB_CODE
Cyobe     
Tyobe     
SUB_CODE
FIRST_REF
001       
CN004     
FIRST_REF
Cyobe     
Cyobe     
Cyobe     
Cyobe     
Dyobe     
Dyobe     
Dyobe     
Kyobe     
Tyobe     
001       
002       
003       
004       
005       
006       
010       
011       
CN004     
trim(sub_code)+trim(first_ref)
001       
Tyobe005            
FIRST_REF
Cyobe001            
Cyobe003            
Cyobe004            
CyobeCN004          
Dyobe002            
Dyobe006            
Dyobe010            	
Kyobe011            
Tyobe005